trump approval rating – time series

Abstract

Put out a timeseries graph via ggplot2plotly

library(tidyverse)  # dplyr, part of tidyverse,  has spread() & gather() 
library(plotly)

Data from fiveThirtyEight.com

• approval ratings
• topline

trump <- read_csv("https://projects.fivethirtyeight.com/trump-approval-data/approval_topline.csv", 
                  col_types = cols(modeldate = col_date(format = "%m/%d/%Y"), 
                                   timestamp = col_datetime(format = "%H:%M:%S %d %b %Y ")))
trump

Munge data

trump_over_under <- trump %>% 
  filter(subgroup == "All polls") %>% 
  select(modeldate, approve_estimate, disapprove_estimate) %>%
  gather("pol_type", "score", -modeldate)
trump_over_under

ggplot

ts_4_ggpltly <- ggplot(trump_over_under, aes(x = modeldate, y = score, color = pol_type)) +
  geom_line() +
  scale_color_manual(values = c("forestgreen", "firebrick"),
                     labels = c("Approve", "Disapprove")) +
  labs(x = "Date", y = "Approval Rating",
       color = "",
       caption = "Data Source:  fivethirtyeight.com")
ts_4_ggpltly

ggplotly(ts_4_ggpltly)

# Example from tk_ts documentation
data_tbl <- tibble::tibble(
    date = seq.Date(as.Date("2016-01-01"), by = 1, length.out = 5),
    x    = rep("chr values", 5),
    y    = cumsum(1:5),
    z    = cumsum(11:15) * rnorm(1))

data_tbl

tk_ts(data_tbl, start = 2016)

# Working but the x axis is bonk
ap_4_dy <- allpolls %>% 
  select(modeldate, approve_estimate, disapprove_estimate) %>% 
  tk_ts(start = 20170201) 

ap_4_dy <- allpolls %>% 
  select(modeldate, approve_estimate, disapprove_estimate) %>% 
  #tk_ts()
  tk_ts(start = 2017, freq = 365) 

ap_4_dy

#idx <- tk_index(allpolls)

This is what was working, even with the bonk x axis
ap_4_dy %>% 
  dygraph() %>% 
  dyRangeSelector(dateWindow = c("2017-02-01", "2018-11-30"))

# from dygraph documentation
class(mdeaths)
head(mdeaths)
lungDeaths <- cbind(mdeaths, fdeaths)
dygraph(lungDeaths)

sessioninfo::session_info()

- Session info -------------------------------------------------------

- Packages -----------------------------------------------------------
 package     * version date       lib source        
 assertthat    0.2.0   2017-04-11 [2] CRAN (R 3.5.1)
 backports     1.1.3   2018-12-14 [2] CRAN (R 3.5.2)
 bindr         0.1.1   2018-03-13 [2] CRAN (R 3.5.1)
 bindrcpp    * 0.2.2   2018-03-29 [2] CRAN (R 3.5.1)
 broom         0.5.1   2018-12-05 [2] CRAN (R 3.5.2)
 cellranger    1.1.0   2016-07-27 [2] CRAN (R 3.5.1)
 cli           1.0.1   2018-09-25 [2] CRAN (R 3.5.1)
 colorspace    1.4-0   2019-01-13 [1] CRAN (R 3.5.2)
 crayon        1.3.4   2017-09-16 [2] CRAN (R 3.5.1)
 crosstalk     1.0.0   2016-12-21 [2] CRAN (R 3.5.1)
 curl          3.2     2018-03-28 [2] CRAN (R 3.5.1)
 data.table    1.11.8  2018-09-30 [2] CRAN (R 3.5.1)
 digest        0.6.18  2018-10-10 [2] CRAN (R 3.5.1)
 dplyr       * 0.7.8   2018-11-10 [2] CRAN (R 3.5.2)
 forcats     * 0.3.0   2018-02-19 [2] CRAN (R 3.5.1)
 generics      0.0.2   2018-11-29 [2] CRAN (R 3.5.2)
 ggplot2     * 3.1.0   2018-10-25 [1] CRAN (R 3.5.2)
 glue          1.3.0   2018-07-17 [2] CRAN (R 3.5.1)
 gtable        0.2.0   2016-02-26 [2] CRAN (R 3.5.1)
 haven         2.0.0   2018-11-22 [2] CRAN (R 3.5.2)
 hms           0.4.2   2018-03-10 [2] CRAN (R 3.5.1)
 htmltools     0.3.6   2017-04-28 [2] CRAN (R 3.5.1)
 htmlwidgets   1.3     2018-09-30 [2] CRAN (R 3.5.1)
 httpuv        1.4.5.1 2018-12-18 [1] CRAN (R 3.5.2)
 httr          1.4.0   2018-12-11 [2] CRAN (R 3.5.2)
 jsonlite      1.6     2018-12-07 [2] CRAN (R 3.5.2)
 knitr         1.21    2018-12-10 [1] CRAN (R 3.5.2)
 labeling      0.3     2014-08-23 [2] CRAN (R 3.5.0)
 later         0.8.0   2019-02-11 [1] CRAN (R 3.5.2)
 lattice       0.20-38 2018-11-04 [2] CRAN (R 3.5.2)
 lazyeval      0.2.1   2017-10-29 [2] CRAN (R 3.5.1)
 lubridate     1.7.4   2018-04-11 [2] CRAN (R 3.5.1)
 magrittr      1.5     2014-11-22 [2] CRAN (R 3.5.1)
 mime          0.6     2018-10-05 [1] CRAN (R 3.5.1)
 modelr        0.1.2   2018-05-11 [2] CRAN (R 3.5.1)
 munsell       0.5.0   2018-06-12 [2] CRAN (R 3.5.1)
 nlme          3.1-137 2018-04-07 [2] CRAN (R 3.5.2)
 pillar        1.3.1   2018-12-15 [2] CRAN (R 3.5.2)
 pkgconfig     2.0.2   2018-08-16 [2] CRAN (R 3.5.1)
 plotly      * 4.8.0   2018-07-20 [1] CRAN (R 3.5.1)
 plyr          1.8.4   2016-06-08 [2] CRAN (R 3.5.1)
 promises      1.0.1   2018-04-13 [1] CRAN (R 3.5.1)
 purrr       * 0.2.5   2018-05-29 [2] CRAN (R 3.5.1)
 R6            2.4.0   2019-02-14 [2] CRAN (R 3.5.2)
 Rcpp          1.0.0   2018-11-07 [2] CRAN (R 3.5.2)
 readr       * 1.3.1   2018-12-21 [1] CRAN (R 3.5.2)
 readxl        1.2.0   2018-12-19 [2] CRAN (R 3.5.2)
 rlang         0.3.1   2019-01-08 [2] CRAN (R 3.5.2)
 rstudioapi    0.9.0   2019-01-09 [2] CRAN (R 3.5.1)
 rvest         0.3.2   2016-06-17 [2] CRAN (R 3.5.1)
 scales        1.0.0   2018-08-09 [2] CRAN (R 3.5.1)
 sessioninfo   1.1.1   2018-11-05 [2] CRAN (R 3.5.2)
 shiny         1.2.0   2018-11-02 [2] CRAN (R 3.5.2)
 stringi       1.3.1   2019-02-13 [2] CRAN (R 3.5.2)
 stringr     * 1.4.0   2019-02-10 [2] CRAN (R 3.5.2)
 tibble      * 2.0.1   2019-01-12 [2] CRAN (R 3.5.2)
 tidyr       * 0.8.2   2018-10-28 [2] CRAN (R 3.5.2)
 tidyselect    0.2.5   2018-10-11 [2] CRAN (R 3.5.1)
 tidyverse   * 1.2.1   2017-11-14 [2] CRAN (R 3.5.1)
 viridisLite   0.3.0   2018-02-01 [2] CRAN (R 3.5.1)
 withr         2.1.2   2018-03-15 [2] CRAN (R 3.5.1)
 xfun          0.4     2018-10-23 [2] CRAN (R 3.5.2)
 xml2          1.2.0   2018-01-24 [1] CRAN (R 3.5.1)
 xtable        1.8-3   2018-08-29 [2] CRAN (R 3.5.1)
 yaml          2.2.0   2018-07-25 [2] CRAN (R 3.5.1)

[1] C:/Users/jrl/Documents/R/win-library/3.5
[2] C:/Users/jrl/Documents/R/R-3.5.2/library